
************************************************************************************************************
**#							FIGURE 1: PAY RATIO HISTOGRAMS
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

*Note: bin_ratio = CEO pay ratio truncated at 500 for the graph

****************************
*Panel A - Reporting Year 1
****************************
histogram bin_ratio if(sample_yr==1), percent ytitle(Percent of Sample) xtitle(CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(0 "0"  100 "100" 200 "200" 300 "300" 400 "400" 500 "{&ge}500")  bcolor(dknavy) barwidth(14)
graph export "Output/Tables/RF/Fig1_pr_histogram_yr1.png", as(png) replace

******************************
*Panel B - Reporting Years 2-4
****************************** 
histogram bin_ratio if(sample_yr!=1), percent ytitle(Percent of Sample) xtitle(CEO Pay Ratio) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  5 "5%"  10 "10%" 15 "15%") xlabel(0 "0"  100 "100" 200 "200" 300 "300" 400 "400" 500 "{&ge}500") bcolor(dknavy) barwidth(14)
graph export "Output/Tables/RF/Fig1_pr_histogram_yr2_4.png", as(png) replace
